Исходный код

'==============================================================================
'Отформатировать таблицу выборки в обработчике события Query_AfterExecute 
'==============================================================================
Sub Query_AfterExecute(Sheet, Query, Obj)
        Dim i,RCount, f
        
        'Посчитать количество строк в таблице
        RCount = Sheet.RowsCount
        
        'Отформатировать таблицу выборки
        For i=0 To RCount-1 Step 2
                'Получить ссылку на объект "формат строки" для левой верхней ячейки таблицы
                Set f = Sheet.RowFormat(i)
                
                'Задать значения свойствам "Жирный шрифт" и "Цвет фона" (желтый)
                f.Bold = TRUE 
                f.BackColor = RGB(255,255, 0)
        Next

End Sub
'==============================================================================